﻿Imports System.ComponentModel

Public Class MainProp
    Public Sub New()
        subGridCount = 0
    End Sub

    Dim selClr As Drawing.Color
    Public Property SelClrProperty() As Drawing.Color
        Get
            Return selClr
        End Get
        Set(ByVal value As Drawing.Color)
            selClr = value
        End Set
    End Property

    Dim subGridCount As Integer
    Public ReadOnly Property SubGridCountProperty() As Integer
        Get
            Return subGridCount
        End Get
        'Set(ByVal value As Integer)
        '    subGridCount = value
        'End Set
    End Property


    Public Function GetNextSubGridCount() As Integer

        subGridCount = subGridCount + 1
        Return subGridCount

    End Function

   


End Class
